﻿Imports DAO
Imports DTO
Public Class KhachHangBUS
    Public Function ThemKhachHang(ByVal khDTO As KhachHangDTO) As Integer
        Dim khDAO As New KhachHangDAO()
        Return khDAO.ThemKhachHang(khDTO)
    End Function

    Public Function LayKhachHang() As List(Of KhachHangDTO)
        Dim khDAO As New KhachHangDAO()
        Return khDAO.LayKhacHang()
    End Function

    Public Function LayKhachHangTheoMaSo(ByVal maso As Integer) As KhachHangDTO
        Dim khDAO As New KhachHangDAO()
        Return khDAO.LayKhachHangTheoMaSo(maso)
    End Function
    'Tim kiem khach hang theo nhieu tieu chi
    Public Function TimKiem(ByVal khCrt As KhachHangCrt) As List(Of KhachHangCrt)
        Dim khDAO As New KhachHangDAO()
        Return khDAO.TimKiem(khCrt)
    End Function
    'Cap nhat khach hang
    Public Function CapNhatKhachHang(ByVal khDTO As KhachHangDTO) As Integer
        Dim khDAO As New KhachHangDAO()
        Return khDAO.CapNhatKhachHang(khDTO)
    End Function
End Class
